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* GENERAL AUTOMATION, INC, ALL RIGHTS RESERVED 

************************************************** 
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* 
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* 
# 

* 



PROGRAM NAME FpHlQ 
MODEL NUMBER 8F01Q 
PURPOSE FORTRAN PhASE-IQ 

PROGRAMMER DICK KALLMANN, MODS-MARK ELFIiLD 

REVISION L^T ************** 



01 11/16/70 NONE RPH INITIAL RELEASE 



***************** 

* 

* RV DATE SCO BY RfcASON FOR CHANGE 

* 

19 ************************************************** 

20 ************************************************** 

21 HDNG HPX FORTRAN ** F'OKMAT 

22 ************************************************** 

23 #STATUS-VERSION 1, MQDIFICAllQN 

24 * 

25 *FUNCTION/OPERATION- 

26 * * CONVENTS FORMAT STATEMENTS |NTO A CHAIN 0~ 

******************** ACHJUMG DOPKEL * OKMATKARTEN ************************ 

29 * FORMAT SPECIFICATJONS'FOR INTERPERTATJON 3Y 
* FORMAT SPECIFICATIONS FOR iNTfcRPERTAT JON DY 



* THE FORTRAN I/O SUBROUTINE, 

* * CHECKS THAT ALL FORMAT STATEMENTS HAVE A 

* STATEMENT NUMBER, 

* * CHECKS FORMAT STATEMENTS FOR SYNTAX AND 

* VALID STATEMENT TYP£S 1 

* * CONVERTS 1UQTP TYPE FuRMAl TO h TYPE, 



32 
33 
34 

35 
36 
37 

38 * 

39 *ENTRY POINTS 

40 * * START-PHASE 10 IS RbAU JNTO CQ*E BY PHASE 9 

41 * VIA A CALL TO TnE RULKX ROUTINE, 

42 * EXECUTION IS BEl,UN AT LOCaTJON START 

43 * 

44 *INPUT- 

45 * * STRING AREA 

46 * * SYMBOL TARLE AREA 

47 * * FC0M 

48 * 

49 *OUTPUT- 

50 * * STRING AREA 

51 * * SYMBOL TA'ILE AREA 

52 * * FCOM 

53 * 

54 .EXTERNAL REFERENCES 

55 * SUBROUTINES* 

56 . * ROLRX 

57 * OTHER FORTRAN PHASES 

58 * * NONE 

59 * 
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60 *EXITS« 

61 * NORMAL- 

62 * * A CAUL TO KQLRX IS jSsUfcO TO LOAD THE 

63 * FOLUnWI'lG PHASEt 

64 * 

65 * ERROR- 

66 * * OVERLAP ERROR CAUSfcS PHASE TQ STOP 

67 * PROCESSING AMD AN fcXjT TO THE NEXT PHASE 
6 fi * * COMPILATION ERRORS" DETECTED BY THIS PHASE 

69 * ARE 27, 2«, 29, 30 

70 * 

71 *TABLES/WORK AREAS- 

72 * * FCQM 

73 * * SYMBOL TABLE 

74 * * STRING AREA 

75 * 

76 *ATTRIBUTES-N/A 

77 * 

78 *NOTES- 

79 * THE SWITCHES USED IN THjS PHASE FOLLOW 
BO * IF NON-ZERO, THE SWITCH Is TRANSFER T, 
fli * IF ZERO, THE SWITCH IS NORMAL n i 

82 * SW1-BEGI JNINQ OF SPECIFICATION 

83 * N BEGINNING OF SPfcC I F J CAT J ON 
R4 * SW2-I TYPE SpECIFICAl IqN 

fi5 * T I TVPE SPECIFICATION 

86 * SW3-SEC01D NJMBEK OF SPECIFICATION 

87 * T SECOND NUMBER OK SPECIFICATION 

R& * SW4-LFFT/RIGHT SW FOK JNHUT DATA GET SU3R 

89 * N LEFT 

90 * SW5-END IF STMN'T S^ GET SyBR 

91 * T END OF STATEMENT 

92 * SW6-C0MMA ALLOWABLE 

93 * N COMMA ALLOWABLE 

94 * SW7-LFFT/RIUHT SW FOk hOLL O/P SPEC 

95 * N LEFT 

96 * SW8-C0MMA MANDATORY 

97 * T COMMA NOT MANDATORY 

98 * SW9-RFD0 OUTPUT 

99 * T OK TO PUT OJT HtDQ COUNT 

100 * SWU-H OR QUOTE TYPE SPECIFICATION 

101 * T II 0^ QUQTE TYPE SPECIFICATION 

102 * SW12-0U0TE TyPE SPEC I F J CAT JON 

103 * T QUOTE TYPE SPEC jF J CAT JON 

104 * SW15-DIGIT ENCOUNTERtD 

105 * T DIGIT ENCOUNTERtD 

106 * SW16-INC1MPLETE SPEC J F I CAT {ON 

107 * T INCOMPLETE SPECIFICATION 

108 * 

109 ************************************************** 
HO HDNG MPX FORTRAN ** FOkMaT 

111 AB5__ far c*er 

112 * 

113 * SYSTEM AND FORTRAN EQUATES 

11 4 * 

115 MEMRY EQU +?£££- <^ z ' MAXIMUM CORE SIZE 
U6 PHSIZ EQU 4*320 MAXIMUM PHASE SIZE 

117 OVERL EQU M=MRY-PHSJZ PHASfcS 2-29 START 

118 FCOM EQU OVERL-22 FOkTRAN CUMM. TAHLz 
139 PHNTB EQU F^OM'S* PHASE TABLE 
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120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

13C 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

14 7 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

163 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 



RQLRX EQU 



PJNTB-5C 



INTERPHASE CALL 



FORTRAN COMMUNICATION AREA 



SOFS 

EOFS 

SQFST 

SOFNS 

SOFXT 

SOFGT 

EOFST 

CQMON 

CSIZE 

ERROR 

FNAME 

SORF 

CCWD 



* 
* 

* 

* 



ORG 

ess 

BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 



FCOM 
1 

1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 



IOCS BSS 

* 



FORTRAN COMMUNICATION AREA 
FORTRAN CQMM AREA 
START Of- STRING 
END OF STRING 
STAKT Oti SYMBOL TABLE 
START OF nON'STMNT NOS, 

start of subsc temps 
staht op generated temps 
end'of symbol table 

NEXT AVAILABLE COMMON 
SiZfc OF COMMON 

overlap error 
program name wd 1 

P^OuRAM NAME WO 2 
SUBK (-) OR FurJ C («■) 
CONfRQt, CARD WORD 
BIT 15 TRANSFER TRACE 
BIT 14 A«I I MMETIC T«ACF. 
BIT 13 EXTtNDEU PRECISION 
8IT 12 LIS! SYMBOL TABLE 
BIT 11 LIS? SUBPROGRAM NAMES 
BIT 10 LIS? SOURCE PROGRAM 
BIT 9 ONE'WURL) {NTEGERS 

IOCS CONTROL CARD WORD 



SEE PHASE ONE FOR WIT PATTERNS 



DFCNT BSS 1 

* 

LCOMN BSS 2 

* 

ICCER BSS 2 

BSS 2 

* 
* 

****************** 

HDNG 
ORG 



DEFINE ► ILE COUNT 

SjZt OF inskel common 
IOCb control card error 

SYSTEM LOADER USE 



END OF FORTRAN COMMUNICATION 

ARFA 

******************************** 

MPX FORTRAN ** FORMAT 
OVERL PHASE ENTRY 
START LD ERROR LP OVERLAP EKROF FLAG 
BSC L LXO, - BR IF NU fcPP^R 



* 
OUT 

* 
LXQ 



XX 

* 



BSI 

DC 

LDX 
LDX 
LD 
S 

STO 
LDX 

MDX 



ROLRX CALL 

11 

MOVE STRING Tu 



DOWN PHASt 11 
NEXT PHASE NUMBER 
SYMBOL TABLE 



11 



L3 



EOFST 

EOFS 

F.OFS 

SOFS 

XX 1 





O/P STRIMG 
I/P STRIMG 
OF WORDS IN 



3 1 



GET PQlNTfcR TO 

GET POINTER TO 

COMPUTE NUMBER 

♦THE STKING-I 

SAVt STHING LENGTH-i 

PUT STRING LbNUTH-l IN 

*MOUlFlABLE 

INCK STRING LENGTH-1 BY 



XR3 
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180 

181 

182 

1R3 

184 

185 

186 

187 

188 

189 

1-50 

191 

19? 

193 

1,94 

195 

196 

197 

198 

1*59 

200 

201 

202 

20 3 

204 

205 

20^ 

207 

208 

209 

210 

211 

212 

213 

214 

215 

216 

217 

21B 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

23H 

239 



LOOPP 



ID 

STO 

MDX 

HDX 

MDX 

MDX 

STX 

LDX 

STX 



* 

ORIG 

* 
ABEL 



C3EL 



!QVEM 



VENT1 

* 

LUP 



LD 

SRA 

AND 

S 

BSC 

LD 

STO 

STX 

MDX 



S 
BSC 



STX 

LD 

SRA 

AND 

STO 

LDX 

LD 

STO 

MDX 

MDX 

MDX 

MDX 

STX 

MDX 



12 





* 
-1 
'1 
-1 

LOOPP 
02 1 G 1 

snFS 

NEOFS 



LD wD FROM J/P STRING 
SAVt JN 0/P STRING 
DECK \/f POSTER 
DECK Q/H ROJNTER 
DECK STHJNG LENGTH COUNT 
LOOK UNLESS FINISHED 
SAVfc START L°C O/P STRING 
GET'STAKT LOC I/P STRIN3 
SAVfc TEMPORARILY 



LDX LI 



DECEM STX 
LD 
STO 
BSC 



LD 
STO 



BAKER 



LD 
SRA 

AND 
STO 



L3 

1 
? 
1 
2 

3 



PT NOW l/P 




1 

inTPt 

E'iDC 

C3EL.Z 





EQFS 

o;st 



JNITJALUE PHASE 

PREV Q/P STRING 
♦ MOUIfUBLE 

£MD STATbMtMT 

~GET" ID WD FR I/P STRING 
SHlYJ OUT LOW ORDER 8JT 
MASK JN ID TYPE. BITS 1*5 
TEST F'Ok END STMNT 
BK JF NUT END 
MOVfc ENJU sTMNT FR I/P 
*ST*ING TU O/P STRING 
SAVfc £NU UF 0/P STRING =>T 
9R 10 EXIT FK THIS PHASE 



FORMAT STATEMENT 



F3RMC 
DECEM, 



MOVE 



VENT 

2 
IpNRM 

VENT1 





1 
1 
-1 

LUP 

NEOFS 

ABEL 



TEST FOK FORMAT STMNT 
BRANCH IF FOUND 

NON FORMAT STATEMENT 
SAVfc J/H STRING POINTER 
LU ID WU FR STRING 
RIGHT JUSTIF Y STMNT NORM 
MASK STMNT NORM 
SAVt AS WORD COUNT 
GET' WD CNT THIS STMNT 
•MOulFlABLE 
LD wD I/P STRING 
SAVfc JN 0/P STRJNG 
HCK, UP STRING PT 
INCH q/h STRING PT 
DECK WD COUNT 
LOOK UNLESS FINISHED 
SAVt E^U OF 0/P STRING 
8K 10 PROCESS NXT STMNT 



STATEMEN 
IDSAV 


IDSTO 
IMDIC.E 



NUMBER 
SAVt LOG OF I/P ID I'D 
GET ID WORD 
SAVt IN TfcMR STORAGE 
BR IF STMNT NUMBERED 



SET UP EkRqR NO 28 

ERR A "LOAD E*KOK NO, CON 28 

iaRNO SAVt FOK OUTPUT PURPOSE 

REPLACE bTATEMfcNT WITH ERROR 

nsTO lD 'Id wurd 

2 RIGHT JUSTIFY NORM 

IPNRM 

NRMSV SAVE NORM 



SElTE 



240 
241 
242 
243 
244 
245 
246 

247 
248 
249 
250 
251 
252 
253 
254 
255 
256 

25 7 
258 
259 
260 
261 
262 
263 
264 
265 

26 6 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
28 
281 
282 
283 
284 

285 
286 
287 
288 
2R9 
290 

291 
292 
293 
204 

295 
296 

297 
298 
299 



JAM 



JAMB 



VENT 



A 

STO 

LDX 

ID 

BSC 

MDX 

LD 

STO 

MDX 

MDX 

UD 

STO 

LD 

STO 

MDX 

STX 

LDX 

MDX 

DC 



12 



ERUD DC 
BSS 



SUM 

swi 

SW2 
SW3 
SW4 
SW5 
3W6 
SW7 

SW« 

SW9 



on 

DC 
DC 
DC 

Dr 

DC 
DC 
DC 

Dr 
DC 

IDTPE DC 
ENDC DC 
EORMC DC 
ERRA DC 
IDSTO DC 
NEOFS DC 
ERRNO DC 
IDSAV DC 
IDNRM DC 
NRMSV DC 
ERRID DC 
GETl DC 
MASK DC 
MASK1 DC 
MASKK DC 
SAVE DC 
THREE DC 
MASK2 DC 
TEN DC 
N156 
ERRB 
MONE 
REDO 
NORM 
NCNT 
TWO 
NINE 
SW15 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
Dr 



U 



IDSAV 

GETl 

NEOFS 

IDSTO 

JAM,£ 

J AH 4 

ERIIU 



1 

JAMB 

ERRID 



ERRNO 

x 

2 

NEOFS 

GET! 

A3EL 



/AOOU 























/7C00 

/n800 

/30 0- 

28 









/GIFT 



/A0Q8 



/07FF 

/ 4 

/QOFF 



/FFFU 
/pOFO 

ID 
156 

27 
/FFFF 




2 
9 




INCK b 
SAVfc A 
PJT EN 
LD ID 
8K iF 
BR 10 
LD tRR 
SAVfc J 
INCK 
SKJH H 
LP fcRR 
SAVfc J 
GfcT'EK 
SAVfc J 
INCK 
SAVfc P 
GET L0 
BR TO 
LOG"!/ 
E*K ID 



Y LPC 
S STAR 
D 0/P 
WD 

STMNT 
CUNT IN 

ID WD 
N 0/P 
/K STR 
EXT 2 

|D WD 
N 0/P 
RUR NU 
M 0/P 
/K STR 
J NITER 
C OF N 
PHOCES 
P STRI 

w/ ST 



»F ID 

T OF NXT SUNT 

STP|NQ PT X32 

NUMBERED 
UE 

STMNT NO, r LA 
STRJNG 
I NO PT 

INSTRUCTIONS 
W/O STMNT \!0, 



STRING 
MBFP 
STWJNQ 
J NTS PT 

XT STMNT 
S f XT STMNT 
NG ID WD 
MNT NO, FLA3 



SW 

SW FOR SET 

FOR GET 

SW 

SPEC 



WORD 



sjm table 
beginning of spec 
i type spec sw 
2nd nq, of spec 

LEFi/RlbHT CHAH 
END"OF STMNT SW 
COMMA ALLOWABLE 
LEFl/RlliHT SW FOR H 
COMMA MANDATORY SW 
REDU SW 

MASK F'OH STRING ID 
END STMNT CONSTANT 
/D300 FgRMAT TYPE CONSTANT 
CONSTANT fcPR 28 

id kd storage 

end of output string 

EKRuR NU, FOR O/P 

LOC OF ID WORD 

MASK TO GfcT NORM 

NORM c u *RENT STHNT 

ERROR IU NO STHNT NO, 

LOCji QF NXT STPNT IN ST^ilN 

St'MNT NU, MA^K 

FORMAT FLAG FQR SYM TRL 

RIGHT CHAR MASK, 

SYM'TBL POINTER 

MINUS THREE CONSTANT 

NUMfcRjC EBC CONSTANT MASK 

CONSTAM1 TEN 

MAX" RECORD LENGTH 

ERR 27 CONSTANT 

MINUS ONE CONSTANT 

REDU INDICATOR 

NORM y/P bTMNT-2 

NORM Q/R 5TMNT»2 

CONSTANT 

CONbTANT 

DIGIT ENCOUNTERED ! 



*V1M3 
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30 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

3?2 

323 

324 

325 
3?6 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 



# 
* 
* 
IMDIC 



* 
* 



* 



DOG 



* 



UD 

STO 

AND 

M 

SLT 

S 

A 

STO 

LDX 

LD 

OR 

STO 



LD 
STO 
STX 
SRA 

AND 
STO 

s 

STO 
STO 

LD 

STO 

MDX 

LDX 

SLA 

STO 

MDX 

STO 

MDX 

MDX 

STO 

STO 

STO 

STO 

STO 

STO 



BSI 



S 

BSC 



BSI 
STO 



S 

BSC 

S 

BSC 



13 
3 



1 
1 

MASK 
T.-lREfc 

16 

THREE 

SQFST 

SAVE 
SAVE 

MASK1 





INDICATE FORMAT STATEMENT 
IN SYMBOL TABLE jli >' ORD 

MOVt SYM TBL POINTER FR 1/ 

*STkInG TO 6/P STRING 

MASK OUT HIGH ORDER BITS 

SYM TBL PT TO STMNT NO, 

♦ BY »3 

SUBTRACT *3 

aOd'TQ bTART OF SYM TBL 

SAVt SYM TBL ADDR STMNT NO 

PJT SYM TBL ADDF XR3 

Li3 bYM TBL JD WD 

FLAG BIT 9 OF SYM TPL ID W 

*TO" INDICATE FMT STMNT 



L 
L 



1 C 

2 

L2 VIGG 
2 

IDNRM 
NRMSV 
TWO 
NCNT 
NORM 
NONE 
L LOOP 
1 2 

3 10 
16 

L TABC 

|M*1 



NITIALUE TU bCA r 'i BODY OF 

STATEMENT 

MOVt STKING ID WD FR I/ 3 

*TO O/P STRING 

SAVt LOO O/P STRING ID 4D 

RIGHT JUSTIF Y NORM 

MASK TO GET "ORM BITS 

ISjONM 

BY 2 WD« 

WD CNT 

WD CNT 



SAVt 

DECK 

SAVt 

SAVt 

LD *1 

INI) UL1ZE 



ONLY 



ID STMNT NO 



no 



MOVt PTK FAST 



REPEATS, 
ID STMNT 



N 



SUM AMD SW 



c 

L3 

3 



*b4 



q .! 



:ii 

,U2 



REDO 

PEP 

ORFP 

SW15 



GET 



PARNL 



SET' UP TO CL^AP 

CLEAR ACC 

CLEAR WU CNT O/P STRING 

INCH o/P STRING PT 

ZERU SUM SWITCH AREA, 

DECK TABLE COUNT 

LOOK jF MOT DOME 

ZERU H UR QUOTE SW 

ZERU QUuTt TYPE SPEC SW 

ZERU REDO SW 

ZERU REPEAT SW 

ZERU GRUUP REPEAT SW 

ZEHU DIGIT ENCOUNTERED 3W 

GET CHAK FRO f i FORMAT ST^IN 
BR TO SUBH TO GET CNAR 

LEFT PARENTHESIS 

"TEST FOK LEFT PARENTHESIS, 
BR JF NUT FOUND ERF? 27 



GET X 



GET 
X 



GET NXT CHAR 
SAVt CHAR 



FN FMT STMNjT 



IS 
MASK2 
TST, Z 
NINE 
TST,Z- 



NJMtRjC 

SUHTRAC1 NUMERIC EBC 

8K ]f not numekjc 

TfcSi \F NO, ! -5T 9 
BH ]F YtS 



COM F 



SEITE 



360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

37 3 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

4 3 

404 

405 

406 

407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 



* 
J 



LD 

M 

SLT 

S 

A 

STO 



STX 

S 
RSC 



SUA 

STO 
MDX 



LD 

STO 

BSC 



ERR30 LD 
STO 
BSC 



PARNL 

X 
FEF 

EE 
EYE 
ACH 
XEX 

AA 

LP 

DJV 

RPET 

GREP 

TENC 

ER30 

SW12 

SW16 

* 

TST 

* 



* 



DC 

DC 
DC 
DC 
Dr 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



LD 

BSC 



LD 



SJM 

TEN 

16 

MASK2 

X 

SUM 



SUM SUM*1Q X 

GET PKEV SUM 

MPY BY 10 

SHlt-T ANS TO ACC 

REMuVfc bITS 3-3 FR f'ROQJCT 

ADD CHAN 

SAVfc 



TAG SW15 

S415 



DIGiT ENCOUNTERED SI 
SfcT SW NON ZERO 



SUM GREAiEK THAN 156 
| X 56 SUBlRACl CON 156 



*VJ,M3 

*V1M3 



L FRR29,-Z 8K IF SUM GT 156 ERR 29 

NORMALIZE SWlfc 

i6 CLEAR INCOMPLETE SPEC 

S*I16 *SWITCH 

Dgo BR 10 GhT ANOTHER Cl'AR 

SET Up ERROR il 

ERR8 LD bRR CON 27 

ERRNO SAVfc |M EKR NO, BFR 

L BAKER 8* 10 EKRfjR N/p 5UBP 

SET Up ERROR aO 

FR30 LU fcRR CON 30 

FPRNO SAVfc JN ERR «F^ 

L RAKER BR 10 ERRQP r VP SUSP 



C 
/004U 


/0OC6 

/ooc»- 

/Q0C9- 
/nOC8- 
/00E7* 
/Q0C1- 
/004D 

/n06l 

/005P- 


/qOQO 

3D 







OMSTANTb 



CHAk 
F" I 



FR 



/00C6 
/00C5 
/CQC9 
/CQC3 
/ C E 7 

/ 
/C061 



E 
E 
H 
X 
A 



FhT STRING 
EST CONSTANT 
TEST CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
EST CONSTANT 
TEST CONSTANT 
GROUP RfcPfcAT SV: 
REDU COUNT C°N 
ERRUR 3U CONSTANT 

QuotE type spec sw 

INCUMpLtTt SPEC SW 



TEST 
TEST 
TEST 
TEST 
TEST 



TEST SW1 
L Sw'l TEST F'OR BEGlNf ING OF S 3 EC 

L T3T1,Z BR IF NUT RFC. INNING 



X F 



X 

FEF 



LD STRING CHAR 
TEST FOR ¥ 



BSC L f : , 



CONSTANTS 

"BR ]F CHAH F 
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420 

421 

422 

423 

4^4 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

4 37 

43H 

439 

44 

443, 

442 

443 

444 

445 

446 

44 7 

448 

449 

4f5D 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 



* 
# 
ECHO 



* 



* 
* 



* 
* 



INK 






* 
* 



* 
* 

M A N 



S 
RSC 



S 

PSC 



BSC 



S 
BSC 



S 
BSC 



LD 

S 

BSC 



LD 

S 

BSC 

s 

BSC 



s 

BSC 



LD 

STQ 

BSI 

BSC 



LP 
S 

BSC 



MDX 



SLA 

STO 
BSC 



LD 



EE 
L C, - 



EVE 

D, - 

ACH 

E, - 

XPX 
ZX* ' 



L 
L 
L 
L 



L 
L 



L 
L 



X E 



X I 



X H 



X X 



X A 



A A 
I, - 



TfcSl F'OH fc 

br. If char 



TES) FOk J 
BK JF CHAR 



TfcSl FOK H 
BR JF CHAR 



TfcSl F'OH X 
BK IF CHAR- 



TEST FCK A 
BR IF CHAR 



X LEFT PARfcNTHfcSIS 
X LOAu STKING CHAR 

LP TfcSl FOK 
GRP, » BR IF CHAR 

X DIVIDE 
X LUAy STKING CHAP 

r I V TfcSl FOK / 

rp, ■ br If char / 
x right parenthesis 

rpET T tSl FOK 
HAH, - BR JF CHAR 

X T 
TCON1 TES1 FOK T 
I!K,Z BK IF CHAR not T 

INDICATE T TYPfc 
TTYPt ID 1 INDICATOR CON 
CQMTP SAVfc jN 0/P INDP AREA 
s'iBR BR 10 TfcST S'- J 15 AND SUM 
pnp 8R TO PK0CES5 T FORMAT 

QUOTES 
X TEST CHAR FOR CUOTE 

Q JOTC *MAKK 
j f Z BK [0 O/P ERH 27 IF NOT 

TAQ SW12 
S,J12,1 TAG QUOTE TYPE SPEC Slrl 



WW o 



16 

W 4 




CLEAR ACC 

CLEAR TUTAL FIELD WIDTH 

8K 10 PKOCESS OJJOTE 



RIGHT PARfeNTHESES FOUND 

S-A15 AND SW16 NORMAL 

S,]15 TES I JF DIGP I NCOUMTEReD 



SEITE 



480 

481 

482 

4R3 

484 

485 

486 

487 

488 

489 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

50 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 



PERD 
EITC 
ONE 



* 
FOX 



* 



* 
* 
XENO 

* 
* 



* 
* 



* 
TSTl 

* 



OR 
BSC 



LD 
BSC 



LD 
OR 
BSI 



MDX 



BSI 

MDX 



DC 
DC 

DC 



S '16 
J, 7 



*ANU ^COMPLETE. SPEC SW OP 
9* IF EITHER SV OH ERR 27 



LD 

S 

BSC 



LD 
OR 
BSI 

LD 

A 

BSI 



SLA 

STO 



BSI 
STO 



MDX 
BSC 



LD 
BSC 



LD 
BSC 



L 
L 

L 

L 



L 
L 



L 
L 



L 
L 



L 
L 



GREP C 
G»FP TES 1 GRUUP PbPfcAT SW 

vox, i br If nun«zeho 

PUT REDO 
REDO GET REDO {NplCATOR 
TFNC ADD COUNT MASK 
pyT PUT RfcDU |N U/P STRING 

SET SW9 TO TRANSFER 
SW9,1 INDlCATtS OK TO PUT RfcD3 

GET X 
OPT 'BR 10 GfcT NXT CHAP 
j 8R JF RfcTyRN FP GET^ERR 27 

CONSTANTS 
/004B "EtiC^DECML PT 
/R000 GROUP REPEAT CONSTANT 
l" ' USEFUL CONSTANT 

GROUP KEPEaT SI* HON ZERO 
OUTPUT'GHOyP REPEAT COUNT 

GREP 1 

GREP LD URQUH KEPt-AT SW 

OMF TEST FOK GROUP REPEAT 1 

XENO, - 3R JF 



FITC 

GREP 

PUT 

L')OP 

OME 

P. IT 



16 
GREP 



GET 
X 



PUT GROUP REHEAT 

LU URQUH REPEAT CON 

AUD TO URUUP REPEAT COUNT 

PUT ON O/H STRING 

GET *NO t WDS TO REPEAT 

ADD 1 

PUT ON U/P STRING 

GREP 

RESfcT GKOUR REPEAT CON 

* f O Q 



GET X 



'8* TO GET NXT CHAR 
*FRUM I/P STRING 



TAG SW8 
Sa'8,1 SET COMMA MANDATORY SW 
OJAD BK TO PHCCESS NEW SPEC TYP 



TEST SW3 

sw3 ld <;nd no, or spfc sw 

l\ f - 8K IF NU 2ND NO, 

SUM 
S'JM TES1 FIELD WIDTH 
J, - 9K If ZERO 





SEITE 


10 






540 


* 






WW SUM 




541 




STO 




WJ "SAVfc TOT Al, FIELD WIDTH 


542 


* 










543 


* 






SUM 




544 




RSI 


L 


NLlZE BR 10 CLEAR SUN AND SW15. 


545 


* 










546 


* 






TEST SW2 




547 




LD 


L 


S,J? TEST FOK | TYPE SPEC 


548 




esc 


L 


K, - 8R IF NUT I TYPE SPEC 


549 


* 










550 


* 






«W LESS 1HAN 127 




551 




LD 




W,< TEST TOTAL FIELD WIDTH 


552 




S 




M127 *VS"l27 




553 




BSC 


L 


ERP30.-Z %* If* G T 127 




554 


* 










555 


* 






X PERIOD 




556 




LD 


L 


WALT GtT RjGHT CHAR TR 


TEMP STO 


557 




S 




PgRD TEST FOK PERIOD 




558 




BSC 


L 


j,Z bk If nut period 


EPR 27 


559 


* 










560 


* 






TAG SW16 




561 




MDX 


L 


SW16#1 SET INCOMPLETE SPEC SW 


562 


* 










563 


# 






FORMALIZE SW2 




564 




SLA 




16 CLEAR ACC 




565 




STO 


L 


S„'2 SET SW TO IND f ON 


I TYP" 


566 


* 










567 


* 






•<|ORMALIZt SW3 




568 




STO 


L 


SW3 SET SW TO INU f O 2ND NO, 


569 




RSC 


L 


DQG BR TO PROCESS NXT 


CHAR 


570 


* 






CONSTANT* 




571 
572 


* 

loop 


DC 




*NO, WDb BACK TO GROUP 3EP 


573 


WW 


DC 




TOTAL FIELD WIDTH 




574 


DD 


DC 




DECIMAL WJDTH 




575 


N127 


DC 




127 MAX TOTAL FIELD WIDTH 


576 


N7 


DC 




/7000 SLAbH FLAG 




577 


N31 


DC 




31 MAX'DfcCML WIDTH 




578 


PEP 


DC 




REPEAT COUNT 




579 


BOX 


DC 




SPEUUL TYPE CODE 


STORA3E 


580 


OPA 


DC 




/A035 SPECIAL TYPE CODE 


CHAR A 


581 


OPB 


DC 




/A014 SPECIAL TYPE CODE 


CHAR B 


582 


OPS 


DC 




/A040 SPECIAL TYPE CODE 


CI'AR S 


583 
584 


OPT 
OPD 


DC 
DC 




/A005 SPECIAL TYPE CODE 
/A016 SPECIAL TYPE CODE 


CHAR T 
CHAR D 


585 


OPL 


DC 




/A025 SPECIAL TYPE CODE 


CHAR L 


586 


OPR 


DC 




/A015 SPEGlAL TYPE CODE 


CHAR R 


587 


VlSl 


DC 




STMnT NORM- 2 




588 


ACON 


DC 




/nOCl A'TtST CONSTANT 




589 


BOON 


DC 




/n0C2./0QCl B TEST CONSTANT 




590 


SCON 


DC 




/00E2-/C0C2 S TEST CONSTANT 




591 


TOON 


DC 




/H0E3-/P0E2 T TEST CONSTANT 




592 


DCON 


DC 




/GCC4-/CQE3 D TESf CONSTANT 




593 


ICON 


DC 




/rnD3-/00C4 L TEST CONSTANT 




594 


RCON 


DC 




/COD9-/OQ03 H TfcSt CONSTANT 




595 


RPARN 


DC 




/fi05U TtST CONSTANT 




596 


TCOM1 


, DC 




/OGE3-/H05D T TEST CONSTANT 




59 7 


ttype 


! DC 




/6000 T INDICATOR CONSTANT 


5^8 


# 










599 


* 






SAVE POINTER AND SAVE : 


SW4 



SEITE 11 



600 

601 

602 

60 3 

604 

605 

606 

607 

608 

609 

610 

611 

612 

613 

614 

615 

616 

617 

618 

619 

620 

621 

622 

623 

624 

625 

626 

627 

628 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 



GRP 



* 
* 



* 

* 



* 



* 
* 






* 



* 
* 



* 

* 

BK 

* 



* 
BOY 



eoYi 

* 
* 

B0Y2 



STX 

LDP 
STD 

ID 
STO 



BSI 

MDX 



S 

esc 



s 

esc 



s 
esc 



s 

BSC 



S 
BSC 



s 

esc 



s 

BSC 



LDX 

LDD 

STD 

LD 

STO 

MDX 



LD 
MDX 



LD 
MDX 



LD 

MDX 



X LEFT PARfcNlHfcSJS 
1 BK 1 "SAVt I/H STRING PT 



L 
L 
L 



SW4 
S f /45H 

NCNT 
V1S1 



L 
L 



GfcT COMTENTS SW4 AND SW5 
SAVt JN TEMPORARY STORA3E 
GET" STMNT NOHM-2 
SAVt 



GET X 



L GHT 

BK 



ACON 
BOY, 



X A. 



X B 



GET STRING C«AP 
BR |0 PROCESS 



TES| CHAR FOR A 
BR JF A 



BCON TESl_ CHAR FOH H 
BOYli - BR IF B 



X S 

SCON 
POY2# - 

X T 

TCON 
P0Y3# * 



TESl CHAR FOH S 
3R IF S 



TESl CHAR FOH T 
BR IF T 



X D 



DSON T tS| CHAR FOH D 

noY4# - br Jf d 



X L 



LCON 

B0Y5* 



TfcSl CHAR FOH L 
BR IF L 



X R 



PEON TtS "' CHAR FOR R 
L BQY6i - BR ]F R 

BACK UP 
LI *-* RESfcT I/P STRING POINTER 
*MOUlFlABLE 
RELUAD i>W4 A ?I D Sw5 
RESlORE Tu PHEV STATE 
RESfcT STMNT N0HMb2 
SAVE 
BR TO PKOCESS PPEV CHAR 



S,J4 5H 

S4A 

VlSl 

NCNT 

CRPl 



INDICATE A SPECIAL TYPE 
OPA CHAK a# LU SPECIAL TYPE CD 
B0Y3 1 BR 10 STORE 

INDICATE B SPECIAL TYPE 
ORB CHAH tit LD SPECIAL TYPE CD 
F;3Y6 1 BR 10 STORE 

INDICATE S SPECIAL TYPE 
OPS CHAK S»"LD SPECIAL TYPE CD 
B1Y6 1 BR 10 STOKE 



SEITE 12 



660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 

67 9 

68 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
607 
608 
699 
700 
701 
702 
703 
704 
7Q5 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 



B0Y3 LD 
MDX 



B0Y4 LD 
MDX 

* 

* 

B0Y5 LD 
MDX 

* 

B0Y6 LD 
STO 

* 

BTEST BSI 



INDICATE T SPECIAL TYPE 
OpT CHAK T/LP SPECIAL TYPE CD 
P0Y6 1 BR 10 STOKE 

INDICATED D SPECIAL TYPE 
OPD CHAK D, LD SPECIAL TYPE CD 
PHY6 1 8R JO STORE 

INDICATE L SPECIAL TYPE 
OPL CHA* U* LU SPECIAL TYPE CD 
R0Y6 1 3R 10 STOKE 



OPR 
BOX 



GET 



INDICATE R SPECIAL TYPE 

CHAK R ( LD SPECIAL TYPE CD 
SAVfc SPECIAL TYPE CODE 



GET X 



8R TO GET ANOTHER Ct AR 



*■ 

* 



* 
* 



S 

BSC 



LD 
BSI 



BSI 

LD 

BSC 



LD 
OR 
BSI 



RIGHT PAKENTHESIS 
RPARN "TESi CHAR FO« 
BK#Z 8K IF NUT 

PlIT SpECIFICA! IQN 

BOX "GET'SRECIAL TYPE COPE 

pyT PUT ON O/P STRING 



L 
L 
L 



L 
L 



SUM 
SJRR 



B* 10 SEE IF DIGIT POUND 
S <M GET'FJELD WIDTH 
DT11A, - 3R IF FIELD *IDTH 



PUT FIELD RfcPfcAT 

M9 GET "FJELD REPEAT FLAG 



SUM 
PUT 



ADD FJELD WIUTH 

put on u/p siring 



* CALL NLIZE 

BT11A BSI L MLIZE CLEaR SW1& A*D SUM 

rE T X 
I LIMA ' BH TO PKOCESb NXT CHAR 



BT11 BSC 
* 
* 

GRPl LD 
BSC 



L 
L 



* 
* 



* 
* 



* 

* 



STO 



BSI 



LP 
BSC 
LD 
STO 



BSI 



GREP 
GREP LD URQUP KEPEAT CNT 
j t 2 8R ]0 EKR IF 0# ERR 27 

iMlTIALUt RE DO 
REDO SAVfc JN RbDO COUNT 



SUM 
SJBR 







BR TO TbST S w 15 AND SUM 



L 
L 
L 
L 



GREP SUM OP 1 JF SUM 
SUM LD SUM 
**?,Z 8K IF NUT 
0\)F SET GROUP REPEAT CONSTANT 
GRFP *TO 1 

CALL NLIZE 

NUZt CLEAR SW15 AND SUM 







SEITE 


13 


720 


# 






721 


* 






722 




LD 


L 


723 




STO 




724 




BSC 


L 


72$ 


* 






726 


* 






727 


RP 


LD 




72B 




BSC 


L 


729 


* 






730 


* 






7.11 




LD 




732 




BSI 


L 


733 




BSC 


L 


734 


* 






735 


* 






736 


* 






737 


* 






738 


* 






739 


F 


LD 


L 


740 




BSC 


L 


741 


* 






742 


* 






743 




LD 


L 


744 




BSC 


L 


745 


* 






746 


* 






74 7 




LD 


L 


748 




STO 


L 


749 


* 






750 


* 






751 




BSI 


L 


752 


* 






753 


* 






754 




LD 


L 


755 




BSC 


L 


756 


* 






757 


* 






758 




MDX 


L 


759 


* 






760 


* 






761 




BSI 


L 


762 




STO 


L 


763 




BSC 


L 


764 


* 






765 


* 






766 


H 


LD 


L 


767 




BSC 


L 


76« 


* 






7 69 


* 






770 




LD 


L 


771 




S 


L 


772 




BSC 


L 


77 3 


* 






774 


* 






775 




LD 


L 


776 




STO 


L 


777 


* 






778 


# 






779 




S 


L 



LOOP *1 

HONE GET -1 CONSTANT 

LOOP SAVfc 

DOG 3R 10 PKOCESS NXT CHAR 

REP 
REP TfcSl REHEAT FLAG 
j # Z BR TO EKR IF NF E-RR 27 

PUT SLASH 
M7 "GET St ASH INDICATOR 
p >T PUT ON U/P STRIflG 
LIMA 8R |0 GfcT ANOTHER CHAR 

TEST INDlCATURb A^D GET f ! EXT 
CHAR AND FJELD WJDTH 

REP 
REP GET REPEAT FLAG 
j f Z 3R 10 EKR IF Nfc FRR 2? 

sum 

SMM TfcSl SUM FIELD WIDTH 

j; ' - BK 10 EKR IF FRR 27 

WW SUM 
5 MM 
WW SAVE SUM JM TOT FLD WIDTH 

CALL NLIZE 

f! L IZE CLEAR SUM AMU St'l5 

TEST SW6 



S<!6 

0,2 

SX8.1 



TESi fO* COMMA ALLOWABLE 
BR IF NUT ALLOWABLE 



TAQ SW8 



SET COMMA MO! MANDATORY SW 



"FT X 
GPT ^ GET NEXT C H A* 
y" SAVE 
K BK 10 BUILD SPECIFICATIONS 

TEST S^15 

SJ15 LU UIGH ENCOUNTERED SW 

j, . BR IF NU DIGIT FOUND 

DD LESS |HaN 32 
S jM GET'FIELD WJUTH 
M31 SUB I R ACT gONSTANT 31 
ERR30,Z- BK IF WIDTH GT 31 

on sum 

SIM "GET FJELD WJTH 

DD SAVE AS DfcCML WIDTH 

WW GiT. DD 

W A ' COMHARE WjTH TOT FLD WIDTH 



SEITE 14 



780 
781 
782 
78 3 
784 
785 
786 

78 7 
788 
789 
790 
791 
792 
793 
794 
79b 
796 

79 7 
798 
799 
800 
601 
802 
803 
804 
SOS 
806 
807 
808 
809 
810 
811 
812 
813 
814 
815 
816 
817 
818 
619 
820 
821 
622 
823 
824 

825 

826 
82 7 

828 
829 
830 
631 
832 
833 
834 
835 
836 
837 
638 
839 



BSC 



RSI 

BSC 



MDX 

MDX 



ERR3Q,-Z BK fcRR JF TOT LT DEfML 
CALL NLIZE 



* 
BLANK 

Y 

COMMA 

N5 

N9 

OUOTC 

CT 

JAMEY 

ER29 

C146 

SW11 

SW45H 

NCNTH 

* 
* 


* 



* 



* 

* 
* 

KILO 



* 

* 

* 



DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

BSS 

DC 

DC 

DC 



SLA 
STO 



SLA 

STO 



STX 
LD 
OR 
BSI 



MDX 



BSI 

STO 



LD 
BSC 



LD 
S 

BSC 



L 

L 



NLIZL 
K 



L 
L 



L 

L 



L 

L 



BR |0 CLEAR SUf Af , D SW15 
BR TO BUILD SPf CIFICATIDNS 



TAG SW6 
S,'6,l "SET COMMA NOT ALLOWABLE SW 
F 8K |0 TtST IF GET NXT CHAR 

CONSTANTS 
/0 040 "EBC'BLANK 





/ n 6 B 

/5000 

/9000 

/007D 





29 

146 



C 



16 
SW6 



16 
CT 



LEFT C^AR TO PACK Q/P AREA 

EBC'CqMMA 

HOLLERITH MASK 

FIELD REPEAT FLAG 

QUOTE MASK 

NO,"CHAKS HOLL FMT 

O/P STRING WD CNT 

ERRUR 2y CONSTANT 

MAX HQLL CHA« CNT 

H'OK uUUTfc TYpf SPEC SW 

TEMP sTU SW4 
TEMP SJTU SW5 
TEMP STO NORM COUNT 

SjORMALIZt SW6 COMMA ALLOWABLE 
CLEAR AOC 
SET COMMA ALLOi ABLE FLA3 

SET UP CuUNT 

CLEAR CNT OF NO, HOLL CHAR 



RUT H SPEC, 
? JAMEY SAVfc Q/P STRING POINTER 
N5 LD HOLL SPEC MASK 
WW AUD TO TOTAL FIELD WIDTH 
p< IT PUT SPEC UN O/P STRING 

TAG SW11 

SW11/1 

SET H OK QUOTE SPEC FLA3 

GET X 
GET GET NEXT CHA* 
X SAVE 

TEST SWli-QUgTfc TYPE SPEC 
S* ! 12 LD bWjTLH 
U B, - 3R JF NUT OUOTE TYPE SP=C 



X 
X 

OJPTC 
L0R3, 



QUOTE 



LU STRING CHAR 

TEST FOR QUOTE CONSTANT 

BR \F QUOTE FOUND 



CHAR MUT QUOTE, PROCESS AS 

HOLLERITH cHAR 
flCNT D 



SEITE 



84 

841 

842 

843 

844 

845 

846 

847 

848 

849 

850 

851 

852 

653 

854 

8P5 

856 

857 

858 

859 

860 

861 

862 

863 

864 

865 

866 

867 

868 

869 

870 

871 

872 

873 

874 

875 

876 

877 

878 

879 

8R0 

681 

882 

883 

884 

885 
886 
887 
888 
889 
890 
891 
892 
893 
8<54 
895 
896 
897 
898 
899 



IOH2 

* 

# 

* 



* 
* 
L0B3 



LD 
RSC 

IP 
STO 



MDX 
MDX 



* 
* 



RXRlH 



LDD 

STD 

LD 

STO 

STX 



BSI 



S 
BSC 



LDD 

STD 

LD 

STO 

LDX 



LOBl STX 
LDX 
LD 
OR 
STO 

JAMES LDX 



LD 

BSC 

MDX 

MDX 

MOP 

MDX 

NOP 

MDX 

MOP 

EQU 



NZER 



s 



BSC 



L NCNT TfrS'i nOKM COUNT 
L ERR29, - BR }F CuUNT 

I T^'O GET A CONSTANT 2 

WW 2 
I WW SET TQTAL FIELD WIDTH 7 

CT CT 1 
L CT,1 "INCH MOLL CHAR COUNT 
L']p 8R TO O/P CHAR 

SECOND QUOTE FQUND IN QUOTE TYP 
SPECIFICATION 

SAVE STATUS DY_ GET ROUTINE 



SW4 
S'45H 
HCMT 
riCNTH 
1 RXRlH 1 

GET X 
GET 



GET Sfc|4 AND SiW5 

SAVfc JM TfcMp STO 

GET NQRh COUNT 

SAVfc JN TfcMP STO 

SAVfc I/P STRING POUTER 



GET ANOTHER CHAP 



X QUOTE 

OUOTC TEST c^AR FO« QUOTE 

L0B2i - BR 10 O/P HOLL QUOTE IF YE 

RESTORE STATUi qF GfcT ROUTINE 
SU45H "LQAU SW4 AND Si- ! 5 FR TEM=> 
Su'4 RESTORE SW4 AND SW5 

ncnth ld Temp NgRf 1 count 

NCNT SAVfc 



LI *** 



RESlORE I/P STHJNG POINTER 
♦MODIFIABLE 



PJT OUT SPfcClAL QUOTE 

2 JAMES 1 SAVfc g/P STRING POINTER 

12 JAMEY LD b T A " T OF WUUTE AREA =>T 

p o LD MRST WD OF QUOTE: AREA 

CT ADD NQ CHARS 

2 o SAVfc JN FIRST WORD 

l ? RESlORE O/P STHJNG POINTER 
*M0UlFlA8LE 



CT 
L NZERiZ 

2 "I 
L TABC-1 

L REDOi-1 

L LOOPil 



CT LESS THAN 146 

LD HOLL CHAR C f, T 
BK iF CNT NON-ZERO 
DIChEmEnT OUTPUT POINTER 
IF ZERO LENGTH LITERAL 

MAY SKIP 
DECK REUO 

MAY SKIP 
INCH L°OP 

MAY SKJP 



C146 
L JILL* Z 



SJBlRACT MAX SIZE LITERAL 
3K ]F LITERAL IT 146 



* 

* 



;ET UP ERROK *9 



SEITE 16 



900 

901 

902 

903 

904 

90S 

906 

90 7 

908 

9Q9 

910 

911 

912 

913 

914 

915 

916 

917 

918 

919 

920 

9?.l 

922 

923 

924 

925 

926 

927 

928 

929 

930 

931 

932 

933 

934 

935 

936 

937 

938 

939 

940 

941 

942 

943 

944 

945 

946 

947 

948 

949 

950 

951 

952 

953 

954 

955 

956 

957 

958 

959 



ERR29 



* 
JILL 



* 
LOB 

* 



* 
* 



* 
* 
HI 10 

* 



* 
* 



* 
* 



* 
LIMA 

* 



* 



♦ 
* 
GAM 



LP 

STO 

BSC 



3LA 
STO 
MDX 



L 
L 



FP29 LU fcRR 29 CON 
FRRNO SAVfc JN ENR f ^O, 
RAKER 5R 10 OUTPUT EHR 



LD 
BSC 



SLA 
STO 



LD 
SLA 
OR 
BSI 



MDX 
MDX 



LD 
BSC 



LD 
SLA 
OR 
BSI 



SLA 

STO 



MDX 



SLA 
STO 



BSI 

STO 
MDX 



LD 

STQ 



L 
L 



L 
L 



L 
L 



L 
L 



L 
L 



16 

s,;i2 

HILO 3 



NjORMALlZt SW12 
CLEAR ACC 

SET NQ^'OUOTfe TYPE SPEC, 
3R TO CUNT WITH STRING 



OUTPUT HULLEKITH CHAPACTERS 

PACKED 2 To A WORD 

TEST SW7 
S„'7 LD LEFT/RIGHT Sy 
GAM, - BR IF LfcFT 

NORMAL I Zt SW7 
16 CLEAR ACC 
S,i7 SET SW TO LEU FOR f'XT :HA 

PUT Y X 

Y Lii LEFT MULL CHAR TO HE 0/ 

8 SHUT TU left half of WD 

X ADD'PRESEMT CHAR RIGHT HAL 

P jT 8H 10 PUT PACKED WD IN 3/P 

WW WW*1 
W,!,-l DECK TOTAL FIELD WIDTH 



WW 
KILO BK 



GtT NXT CHAR IF A\'Y 



TEST SW7 

S-'7 TESl FOK LEFT CHAR TO O/P 

LIMA, - BR IF LEFT CHAR TO O/P 

RUT Y BLANK 

Y LD LEFT CHAR 

8 SHlhT TU LEFT HALF OF WD 

R L ANK AUD'EBC BLANK IN RIGHT HAL 

pjT PDT WD UN O/P STRING 

NORMALIZE SW7 

16 CLEAR ACC TO SET LEt T HALF 

S,J7 *0/H SW FOR NEXT NOLL O/P 

TAG SW8 

SK'8,1 "SET CQ*MA MANDATORY SW 

NORMALIZE SWU 

16 CLEAR ACC TO SET NOT H 3R 

S '11 *QUUTE bPfcC SW 

SET X 

GET GET NXT CHAP 

X" SAVt 

Q.jAD BR 10 PKOCESS NEW SPEC 



Y X 



X 

Y 



GET STRING CHAP FOR LEFT 
♦HAM) O/P OF PACKED WD 
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960 
961 
962 
963 
964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
983 
984 
985 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
908 
909 
1000 
1001 
1002 

1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 

1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 



* 
* 



* 
* 



* 
K 



# 






* 

# 



* 

# 



MDX L 
MDX 



* 

OLD MDX L 

* 

* 

POP MDX L 

* 



LD L 
STQ L 



BSI U 



MDX L 
BSC L 



LD L 
SLA 

OR L 
OR 



HANI BSI L 

# 

* 

SLA 

STQ L 
* 

* 



STO L 



LD L 
BSC L 



S L 
BSC L 



LD L 
OR L 
BSI L 



ZEBRA SLA 

STO L 

# 
* 
* 
* 
QUAD SLA 

STO L 



TAG SW7 
S, ! 7,l SfcT Sw >OH RIGHT CHAR NXT 
MJLO CONllNUfc PROCESSING STRING 

TAP SW 2 
S,!2,l "' "SfcT J TYPE: SPEC SW 

TAG SW3 
Sr'3,1 SfcT 2ND NO, OF SPEC SW 

REP SUM 
SJM "UD > IELU WIDTH 
REP SAVfc jN REPEAT 

CALL NLIZE 

NLlZfc CLEAR SWM, SW15 

TAG SW1 
S;'l,l SET END OH S^EC SW 

DQG BR ► OR NEX T SPkC TYPE 

3UILU SPfcClFlCATIONS 
Dp LD UEC^L F I ELD WIDTH 

7 LfcFl .JUSTIFY 

WW ADD'TQT FIELD HDTH-RIG4T 

ADD O/P TYPE INDICATOR 



COMTP 
PJT 



PUT SPECIFICATION 

"PUT SPEC ON O/P STRJNG 



16 
DD 



DD 



WW o 



CLEAR AOC 

CLEAR DfcChL FULD WIDTH 



CLEAR TuTaL FIELD WIDTH 



REP 



REP 
OJADi 



TfcSr REPEAT COUNT 
BR IF FOR W SPEC 



REP 1 
OME SUBTRACT 1 
ZEPRA, - BK }F 1 



N9 

REP 

PUT 



16 
REP 



16 
S,:i 



PUT REPEAT 

LD HEPEAT INDICATOR 
ADD REPfcAT COUNT 
PJT ON u/p string 

REP 

CuEAR aoc 

CLEAR RfcPfcAT COUNT 

mew specification type to he 
processe'u 

MORMALUt SHI 

CLEAR AOC TO SLT BEGINNING 
*OF SpEu &W 
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1020 

10 21 

1022 

1023 

1024 

1025 

10 26 

1027 

1028 

1029 

1030 

1031 

10 32 

10 33 

1034 

1035 

1036 

1037 

103R 

10 39 

1040 

1041 

1042 

1043 

1044 

1045 

10 46 

1047 

1048 

104 9 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

10 60 

1061 

10 62 

1063 

1064 

10 65 

1066 

1067 

10 68 

1069 

1070 

1071 

1072 

1073 

1074 

10 75 

1076 

1077 

1078 

1079 






LP L 
S L 
BSC I 



STO 



CATT 

* 



XTYPF: 
FTYPE 
ETYPE 
ITYPE 
ATYpE 
COMTP 
* 

* 

ZX 



* 
* 
B 



BB 

* 

C 



* 

* 

D 



DD2 

* 

I 



STO 
BSC 



ID 
BSC 



LD 

STO 

BSC 



LD 

STO 

BSI 

HDX 



LD 

STO 

HDX 



LD 
STO 
BSI 
HDX 



LD 

STO 

MDX 



L 

L 



L 
L 



SLA 

STO L 

LD L 

BSC L 



DC 
DC 
DC 
DC 
DC 
DC 



X COMMA 
X LD STRING WD 

COMMA SJB'lRACT EBC 
CA.TTiZ BR IF COMMA : 



COMMA 
!OT FOUND 



NORMALIZE S^lb DIGIT ENCOUNTERED SW 
S : ,U5 "* SET DIGIT NOT ENCOUNTERED 

NjORMALIZt S^b MANDATORY COMMA 
Sli8 SET" COMMA MANDATORY 
DoG BW TO CALC FIELD WIDTH 



S.J8 
ECHO, 



TEST SW8 

LD OOMMA MANDATORY SW 
8H JF COMMA MANDATORY 



16 
SW8 
X 
DOG 



NjORMALIZt SWb 
CLEAR AOC 

SET COMMA MANDATORY SW 
LU STRING CHAR 
i BR 10 PKOCESS 



CONSTANTS 



/4000 

/100U 



/ 2 

/3000 





TYPE 

tVpe 

TYPE 

type 

TYPE 



SPEC 
SPEC 
SPEC 
SPEC 
SPEC 



CONSTANT 
CONSTANT 
CONSTANT 

CONSTANT 
CONSTANT 



CON INDICATING O/P TYPE 

SET INUIOATOKS FO* VARIOUS TYPE 

SPECIFICATIONS 

INDICATE X TYPE 
XTYPE LU X TYPE CONSTANT 
CiMTP SAVfc l H CQNSTAfT TYPE 
p 8R ]0 CALC FIELD WIDTH 

INDICATE F TYPE 
FTYPE LD !• TYPE SPEC CONSTANT 
COMTP SAVfc CONSTANT TYPE 
SjjRR CLEAR SUM AND SW15 
OLD BR TO CONTINUE 

INDICATE E TYPE 
ETYPE LD b TYPE SPEC CONSTANT 
COMTP SAVfc CONSTANT TYPE 
BB BR TO CONTINUE 



ITYPE 
COMTP 
SJ6R 

POP 



INDICATE I TYPE 

LD I TYKE SPEC CONSTANT 
SAVfc CONSTANT TYPE 
CLEAR SW1£> AND SUM 
BR 10 CONTINUE 



INDICATE A TYPE 
ATYPE LU A TYPE SPEC CONSTANT 
CHMTP SAVfc 
DH2 BR TO CONTINUE 
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1080 
1081 
10B2 
1C83 
1084 
10 85 
1086 
10R7 
1088 
10B9 

ico 

1091 
10^2 
1093 
1094 
1095 
1096 
1097 
10 98 
1099 
1100 
1101 
1102 
1103 
1104 

1105 
1106 

1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
113 7 
1138 
1139 



* 
* 
* 
* 
* 
* 
GET 

• 

gety 

* 
* 



* 
* 



ZR 



* 
FAT 



HAT 

* 
* 



* 
ABIT 






DC 



LD 
BSC 



LD 
BSC 



STX 

LDX 

LD 

A 

SLA 

STO 

LD 

AND 

OR 

STO 

LDX 

STX 
BSC 



LD 
BSC 



LD 
BSC 



MDX 



LD 
SRA 
AND 
STO 



LD 
BSC 
LD 
MDX 



LD 
S 

BSC 
A 



SiJPROgTINE ^0 GfcT A WORD FROM A 
FnRMAT STATEMtNT y OK ANALYSIS 
TAKES PACKED tBC CHARS FROM IfPUT 
STRING AND EMITS UNt CHAR AT A TI^E 
RIGHT JUSTIFItD IN THE ACCUMULATOR 



L 
L 



L 
L 







HAT, 



S W 9 

FAT, 



2 
12 



2 
L2 

L2 
L 



TEST 



TEST 



BSl ENTKY POINT 

SW5 FQR END OF STMNT 
LD feND UF STMNT SW 
8R jF NUT END Of ST!' 



NT 



SW9 

LD kEQO SW 

8K JF NUT OK 



TO O/P REDO 



RE- 



ZR 1 

VIGG 

TARC 

Tu'O 

2 

TABC 



MATB 

TARC 





NEOFS 

ABEL 



AD JUS | JD NORM 

SAVt Q/H STRING POUTER 
LO i/Q LOC OF O/p STRIN3 
LD NO, KDfe O/P STRII.'G 
ADD 2 FUR STMNT NO, 
SHJl-T TU NOP" BITS 
SAVt JN COUNT AREA 
LU ID WU U/P STRING 
MASK OUT PREV STMNT 
MASK JN NEW NQRM 
SAVt NEW JD WD O/P STRING 



AND ID 
6 .-13 



NOR 1 



LD ACTUAL O/P STRING PT 

*M0UIFIABLE 

SAVt A S END OF STRUG 

BR 10 PKOCESS NXT STMNT 



PUT BLANK JN A REGISTER 
L BLANK LD E8C BLANK 
I GET RETURN 10 CALL IMG PROGRAM 

TEST SW4 
L S-M LD LEFT/RJGHT CHAR SW 
L LUKE,Z BR IF RIGHT CHAP 

jip S W 4 
L Sw'4,1 * "SET SW TO PROCESS RIGHT NX 

PUT LEFT CHAR, IN A REGISTER 
1 LD wD I/P STRING 
8 CHAk IN BJTS 8*15 

L MASK *^Sk. qUT BIS Q*7 

WALT SAVt JM TfcMR STORAGE 

TEST SHU 

L Sw'll LD UUOTE TYPE SREC SW 

L LARRi " BR IF MUT OUOTf- TYPE 

WALT LD U/P WD 

LARRA BR JO EXIT 

is charauTe* bi,ank 

WALT LD UHaR FROM TEMP STO 
I BLANK TESl FOR EBC BLANK 

L GETYi - BR IF 8LANK TO GET fjXT :HA 
L BLANK ELSt# RESTORE CHAR 
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1140 

1141 

1142 

1143 

1144 

1145 

1146 

1147 

1148 

1149 

1150 

1151 

1152 

1153 

1154 

1155 

1156 

1157 

1158 

1159 

1160 

1161 

1162 

1163 

1164 

1165 

1166 

1167 

1168 

1169 

1170 

1171 

1172 

1173 

1174 

1175 

1176 

1177 

1178 

1179 

1180 

1181 

1182 

1183 

1184 

1185 

1186 

1187 

1188 

1189 

1190 

1191 

1192 

1193 

1194 

1195 

1196 

1197 

ll<?ft 
1199 



LARRA 

* 
LUKE 

* 



* 

* 

* 

* 
# 



* 

WALT 

VIGG 

TABC 

MATB 

VAB 

VABl 

* 

* 
* 

PUT 

* 



* 
* 



* 

* 



esc I oft 



RETuRN TO CALLING PROGRAM 



* 

* 



ZAZ 



* 
VAB2 

# 



SLA 

STO 



LD 

AND 

STO 



MDX 

MDX 
MDX 



MDX 
MDX 



DC 
DC 
DC 
DC 
DC 
DC 



DC 



STO 
MDX 



MDX 



STX 

STX 

LD 

S 

BSC 



MDX 
RSC 



MDX 



NORMAL Ut SW« 
16 SET "LEFT/KIGHT CHAR SW 'OP 
L S/4 *LE(-T CHAN NEXT TIME. 

PUT HIGH) CHAR IN A REGISTER 
l LP WD'FK j/p string 
I HASKK MASK QUT BITS 0»7 

WALT SAVt IN TEMPORARY STORAGE 



1 1 



HOVE POINTER 1 

INCH |NPUT STRING PRINTER 



MCMT NCNT-i 
NCNT# -1 DECK COUNT OR HDS If STMNT 

MCNT 
ABIT BR IF COUNT HOT FINISHED 

TAG SW5 
S^'5,1 "SET END O* STfU'T SW 
A3 IT BR TO TfcST CHAR 

CONSTANTS 

"TEMK sTU FOR CHAR ORTAIMED 

LOC'OF bTMNT IP 

NO, WDSO/P STRING STMNT 

/F803 MASK TO CLEAH NORM JD WD 

TEMK STU J/P STRING PT 

TEMK sTU Q/P STRING PT 

SUBROUTINE TO PgT WpRD Or. OUTFUT 
STRING, ACC CuNTAlNSs WORD TO RE 
OJTPUT ON ENTkY Tu THIS SUBROUTINE, 







SJBKQgTjNb E f ^TRY POJNT 



PUT A REGISTER IN BUILD RUFFER 
2 SAVfc Q/P WD IN STRING 

L TABC#1 INCH Q/H WD CNT 



2 1 



HOVE POlNTfcR 

INCH Q/P STRING PT 



CHECK OVtRLAP 

1 VABl SAVfc j/P STRING PT 

2 VAB SAVt Q/P STRING PT 
VAP1 COMPARE I/P POINTER 
VAB * w i T H OUTPUT POINTER 

L VAB2,- 3R IF I/P GE O/P 

SET JP OVERLAP ERHOK 
L ERROR, 1 "SET SYSTEM OVERLAP RRR r LA 
L OUT BR 10 EXIT F« COMPTER 

REDO REDU 1 
L REDOil INCH REUO COUNT 

LOOP LOOH-i 
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1200 MDX L LOOP#-l INCH i,OuP COI'NT 

1201 BSC I PJT RfcTyRN 10 CALLING PROGRAM 

1202 * 

1203 * THIS SUBROUTINE NORMALIZES SUM AND SWl 

1204 * 

1205 NLlZE DC SUBNQUTjNfc ENTRY POINT 

1206 * 

1207 * SUM 

1208 SLA 16 CLEAR AfC 

1209 STO L SUM CLEAR PlEl,D M IDTH 

1210 * 

1211 * NORMALIZE SW1& 

1212 STO L SW15 ClEaR DJGJT ENCOUNTERED SW 

1213 BSC I NLlZE RETURN TO CALLING PROG 

121 4 * 

1215 * THIS ROUTINE |EsTs SWlb AND SUM 

1216 * 

1217 SUBR DC SJBKOUTiNfc ENTRY POINT 

1218 * 

1219 * S,'15 TAGEO 

1220 LD L S.,'15 TES| ff OK DIGIT ENCOUNTERED 

1221 BSC - SKIP JF YfcS 

1222 MDX 0ijT2 RETURN TO CALLING PROG IF 

1223 * 

1224 * SJM 

1225 LD L SUM LD HELU WIDTH 

1226 BSC L J, - 8W 10 EKR IF ERR 27 

1227 0UT2 BSC I S'JBR RETURN TO CALLING PROG IF 

1228 BSS OVERL-*+32Q*3 RHAS&-1C PATCH AREA 

1229 END START 



